home *** CD-ROM | disk | FTP | other *** search
/ SunSoft Catalyst CDWARE 1996 May to August / Catalyst CDWARE 1996 May to August.iso / .products / .bin / httpd / Solaris_1 / pod2man < prev    next >
Text File  |  1995-06-14  |  14KB  |  628 lines
  1. #!~satyen/bin/perl5/perl
  2. eval 'exec ~satyen/bin/perl5/perl -S $0 ${1+"$@"}'
  3.     if $running_under_some_shell;
  4.  
  5. $/ = "";
  6. $cutting = 1;
  7.  
  8. $CFont = 'CW';
  9. if ($ARGV[0] =~ s/-fc(.*)//) {
  10.     shift;
  11.     $CFont = $1 || shift;
  12. }
  13.  
  14. if (length($CFont) == 2) {
  15.     $CFont_embed = "\\f($CFont";
  16. } 
  17. elsif (length($CFont) == 1) {
  18.     $CFont_embed = "\\f$CFont";
  19. } 
  20. else {
  21.     die "Roff font should be 1 or 2 chars, not `$CFont_embed'";
  22. } 
  23.  
  24. $name = @ARGV ? $ARGV[0] : "something";
  25. $name =~ s/\..*//;
  26.  
  27. print <<"END";
  28. .rn '' }`
  29. ''' \$RCSfile\$\$Revision\$\$Date\$
  30. ''' 
  31. ''' \$Log\$
  32. ''' 
  33. .de Sh
  34. .br
  35. .if t .Sp
  36. .ne 5
  37. .PP
  38. \\fB\\\\\$1\\fR
  39. .PP
  40. ..
  41. .de Sp
  42. .if t .sp .5v
  43. .if n .sp
  44. ..
  45. .de Ip
  46. .br
  47. .ie \\\\n(.\$>=3 .ne \\\\\$3
  48. .el .ne 3
  49. .IP "\\\\\$1" \\\\\$2
  50. ..
  51. .de Vb
  52. .ft $CFont
  53. .nf
  54. .ne \\\\\$1
  55. ..
  56. .de Ve
  57. .ft R
  58.  
  59. .fi
  60. ..
  61. '''
  62. '''
  63. '''     Set up \\*(-- to give an unbreakable dash;
  64. '''     string Tr holds user defined translation string.
  65. '''     Bell System Logo is used as a dummy character.
  66. '''
  67. .tr \\(*W-|\\(bv\\*(Tr
  68. .ie n \\{\\
  69. .ds -- \\(*W-
  70. .if (\\n(.H=4u)&(1m=24u) .ds -- \\(*W\\h'-12u'\\(*W\\h'-12u'-\\" diablo 10 pitch
  71. .if (\\n(.H=4u)&(1m=20u) .ds -- \\(*W\\h'-12u'\\(*W\\h'-8u'-\\" diablo 12 pitch
  72. .ds L" ""
  73. .ds R" ""
  74. .ds L' '
  75. .ds R' '
  76. 'br\\}
  77. .el\\{\\
  78. .ds -- \\(em\\|
  79. .tr \\*(Tr
  80. .ds L" ``
  81. .ds R" ''
  82. .ds L' `
  83. .ds R' '
  84. .if t .ds PI \\(*p
  85. .if n .ds PI PI
  86. 'br\\}
  87. .TH \U$name\E 1 "\\*(RP"
  88. .UC
  89. END
  90.  
  91. print <<'END';
  92. .if n .hy 0 
  93. .if n .na
  94. .ds C+ C\v'-.1v'\h'-1p'\s-2+\h'-1p'+\s0\v'.1v'\h'-1p'
  95. .de CQ          \" put $1 in typewriter font
  96. END
  97. print ".ft $CFont\n";
  98. print <<'END';
  99. 'if n "\c
  100. 'if t \\&\\$1\c
  101. 'if n \\&\\$1\c
  102. 'if n \&"
  103. \\&\\$2 \\$3 \\$4 \\$5 \\$6 \\$7
  104. '.ft R
  105. ..
  106. .\" @(#)ms.acc 1.5 88/02/08 SMI; from UCB 4.2
  107. .    \" AM - accent mark definitions
  108. .bd S B 3
  109. .    \" fudge factors for nroff and troff
  110. .if n \{\
  111. .    ds #H 0
  112. .    ds #V .8m
  113. .    ds #F .3m
  114. .    ds #[ \f1
  115. .    ds #] \fP
  116. .\}
  117. .if t \{\
  118. .    ds #H ((1u-(\\\\n(.fu%2u))*.13m)
  119. .    ds #V .6m
  120. .    ds #F 0
  121. .    ds #[ \&
  122. .    ds #] \&
  123. .\}
  124. .    \" simple accents for nroff and troff
  125. .if n \{\
  126. .    ds ' \&
  127. .    ds ` \&
  128. .    ds ^ \&
  129. .    ds , \&
  130. .    ds ~ ~
  131. .    ds ? ?
  132. .    ds ! !
  133. .    ds / 
  134. .    ds q 
  135. .\}
  136. .if t \{\
  137. .    ds ' \\k:\h'-(\\n(.wu*8/10-\*(#H)'\'\h"|\\n:u"
  138. .    ds ` \\k:\h'-(\\n(.wu*8/10-\*(#H)'\`\h'|\\n:u'
  139. .    ds ^ \\k:\h'-(\\n(.wu*10/11-\*(#H)'^\h'|\\n:u'
  140. .    ds , \\k:\h'-(\\n(.wu*8/10)',\h'|\\n:u'
  141. .    ds ~ \\k:\h'-(\\n(.wu-\*(#H-.1m)'~\h'|\\n:u'
  142. .    ds ? \s-2c\h'-\w'c'u*7/10'\u\h'\*(#H'\zi\d\s+2\h'\w'c'u*8/10'
  143. .    ds ! \s-2\(or\s+2\h'-\w'\(or'u'\v'-.8m'.\v'.8m'
  144. .    ds / \\k:\h'-(\\n(.wu*8/10-\*(#H)'\z\(sl\h'|\\n:u'
  145. .    ds q o\h'-\w'o'u*8/10'\s-4\v'.4m'\z\(*i\v'-.4m'\s+4\h'\w'o'u*8/10'
  146. .\}
  147. .    \" troff and (daisy-wheel) nroff accents
  148. .ds : \\k:\h'-(\\n(.wu*8/10-\*(#H+.1m+\*(#F)'\v'-\*(#V'\z.\h'.2m+\*(#F'.\h'|\\n:u'\v'\*(#V'
  149. .ds 8 \h'\*(#H'\(*b\h'-\*(#H'
  150. .ds v \\k:\h'-(\\n(.wu*9/10-\*(#H)'\v'-\*(#V'\*(#[\s-4v\s0\v'\*(#V'\h'|\\n:u'\*(#]
  151. .ds _ \\k:\h'-(\\n(.wu*9/10-\*(#H+(\*(#F*2/3))'\v'-.4m'\z\(hy\v'.4m'\h'|\\n:u'
  152. .ds . \\k:\h'-(\\n(.wu*8/10)'\v'\*(#V*4/10'\z.\v'-\*(#V*4/10'\h'|\\n:u'
  153. .ds 3 \*(#[\v'.2m'\s-2\&3\s0\v'-.2m'\*(#]
  154. .ds o \\k:\h'-(\\n(.wu+\w'\(de'u-\*(#H)/2u'\v'-.3n'\*(#[\z\(de\v'.3n'\h'|\\n:u'\*(#]
  155. .ds d- \h'\*(#H'\(pd\h'-\w'~'u'\v'-.25m'\f2\(hy\fP\v'.25m'\h'-\*(#H'
  156. .ds D- D\\k:\h'-\w'D'u'\v'-.11m'\z\(hy\v'.11m'\h'|\\n:u'
  157. .ds th \*(#[\v'.3m'\s+1I\s-1\v'-.3m'\h'-(\w'I'u*2/3)'\s-1o\s+1\*(#]
  158. .ds Th \*(#[\s+2I\s-2\h'-\w'I'u*3/5'\v'-.3m'o\v'.3m'\*(#]
  159. .ds ae a\h'-(\w'a'u*4/10)'e
  160. .ds Ae A\h'-(\w'A'u*4/10)'E
  161. .ds oe o\h'-(\w'o'u*4/10)'e
  162. .ds Oe O\h'-(\w'O'u*4/10)'E
  163. .    \" corrections for vroff
  164. .if v .ds ~ \\k:\h'-(\\n(.wu*9/10-\*(#H)'\s-2\u~\d\s+2\h'|\\n:u'
  165. .if v .ds ^ \\k:\h'-(\\n(.wu*10/11-\*(#H)'\v'-.4m'^\v'.4m'\h'|\\n:u'
  166. .    \" for low resolution devices (crt and lpr)
  167. .if \n(.H>23 .if \n(.V>19 \
  168. \{\
  169. .    ds : e
  170. .    ds 8 ss
  171. .    ds v \h'-1'\o'\(aa\(ga'
  172. .    ds _ \h'-1'^
  173. .    ds . \h'-1'.
  174. .    ds 3 3
  175. .    ds o a
  176. .    ds d- d\h'-1'\(ga
  177. .    ds D- D\h'-1'\(hy
  178. .    ds th \o'bp'
  179. .    ds Th \o'LP'
  180. .    ds ae ae
  181. .    ds Ae AE
  182. .    ds oe oe
  183. .    ds Oe OE
  184. .\}
  185. .rm #[ #] #H #V #F C
  186. END
  187.  
  188. $indent = 0;
  189.  
  190. while (<>) {
  191.     if ($cutting) {
  192.     next unless /^=/;
  193.     $cutting = 0;
  194.     }
  195.     chomp;
  196.  
  197.     # Translate verbatim paragraph
  198.  
  199.     if (/^\s/) {
  200.     @lines = split(/\n/);
  201.     for (@lines) {
  202.         1 while s
  203.         {^( [^\t]* ) \t ( \t* ) }
  204.         { $1 . ' ' x (8 - (length($1)%8) + 8 * (length($2))) }ex;
  205.         s/\\/\\e/g;
  206.         s/\A/\\&/s;
  207.     }
  208.     $lines = @lines;
  209.     makespace() unless $verbatim++;
  210.     print ".Vb $lines\n";
  211.     print join("\n", @lines), "\n";
  212.     print ".Ve\n";
  213.     $needspace = 0;
  214.     next;
  215.     }
  216.  
  217.     $verbatim = 0;
  218.  
  219.     # check for things that'll hosed our noremap scheme; affects $_
  220.     init_noremap();
  221.  
  222.     if (!/^=item/) {
  223.  
  224.     # trofficate backslashes; must do it before what happens below
  225.     s/\\/noremap('\\e')/ge;
  226.  
  227.     # first hide the escapes in case we need to 
  228.     # intuit something and get it wrong due to fmting
  229.  
  230.     s/([A-Z]<[^<>]*>)/noremap($1)/ge;
  231.  
  232.     # func() is a reference to a perl function
  233.     s{
  234.         \b
  235.         (
  236.         [:\w]+ \(\)
  237.         )
  238.     } {I<$1>}gx;
  239.  
  240.     # func(n) is a reference to a man page
  241.     s{
  242.         (\w+)
  243.         (
  244.         \(
  245.             [^\s,\051]+
  246.         \)
  247.         )
  248.     } {I<$1>\\|$2}gx;
  249.  
  250.     # convert simple variable references
  251.     s/(\s+)([\$\@%][\w:]+)/${1}C<$2>/g;
  252.  
  253.     if (m{ (
  254.             [\-\w]+
  255.             \(
  256.             [^\051]*?
  257.             [\@\$,]
  258.             [^\051]*?
  259.             \)
  260.         )
  261.         }x && $` !~ /([LCI]<[^<>]*|-)$/ && !/^=\w/) 
  262.     {
  263.         warn "``$1'' should be a [LCI]<$1> ref";
  264.     } 
  265.  
  266.     while (/(-[a-zA-Z])\b/g && $` !~ /[\w\-]$/) {
  267.         warn "``$1'' should be [CB]<$1> ref";
  268.     } 
  269.  
  270.     # put it back so we get the <> processed again;
  271.     clear_noremap(0); # 0 means leave the E's
  272.  
  273.     } else {
  274.     # trofficate backslashes
  275.     s/\\/noremap('\\e')/ge;
  276.  
  277.     } 
  278.  
  279.     # need to hide E<> first; they're processed in clear_noremap
  280.     s/(E<[^<>]+>)/noremap($1)/ge;
  281.  
  282.  
  283.     $maxnest = 10;
  284.     while ($maxnest-- && /[A-Z]</) {
  285.  
  286.     # can't do C font here
  287.     s/([BI])<([^<>]*)>/font($1) . $2 . font('R')/eg;
  288.  
  289.     # files and filelike refs in italics
  290.     s/F<([^<>]*)>/I<$1>/g;
  291.  
  292.     # no break -- usually we want C<> for this
  293.     s/S<([^<>]*)>/nobreak($1)/eg;
  294.  
  295.     # LREF: a manpage(3f) 
  296.     s:L<([a-zA-Z][^\s\/]+)(\([^\)]+\))?>:the I<$1>$2 manpage:g;
  297.  
  298.     # LREF: an =item on another manpage
  299.     s{
  300.         L<
  301.         ([^/]+)
  302.         /
  303.         (
  304.             [:\w]+
  305.             (\(\))?
  306.         )
  307.         >
  308.     } {the C<$2> entry in the I<$1> manpage}gx;
  309.  
  310.     # LREF: an =item on this manpage
  311.     s{
  312.        ((?:
  313.         L<
  314.         /
  315.         (
  316.             [:\w]+
  317.             (\(\))?
  318.         )
  319.         >
  320.         (,?\s+(and\s+)?)?
  321.       )+)
  322.     } { internal_lrefs($1) }gex;
  323.  
  324.     # LREF: a =head2 (head1?), maybe on a manpage, maybe right here
  325.     # the "func" can disambiguate
  326.     s{
  327.         L<
  328.         (?:
  329.             ([a-zA-Z]\S+?) / 
  330.         )?
  331.         "?(.*?)"?
  332.         >
  333.     }{
  334.         do {
  335.         $1     # if no $1, assume it means on this page.
  336.             ?  "the section on I<$2> in the I<$1> manpage"
  337.             :  "the section on I<$2>"
  338.         } 
  339.     }gex;
  340.  
  341.     s/Z<>/\\&/g;
  342.  
  343.     # comes last because not subject to reprocessing
  344.     s/C<([^<>]*)>/noremap("${CFont_embed}${1}\\fR")/eg;
  345.     }
  346.  
  347.     if (s/^=//) {
  348.     $needspace = 0;        # Assume this.
  349.  
  350.     s/\n/ /g;
  351.  
  352.     ($Cmd, $_) = split(' ', $_, 2);
  353.  
  354.     if (defined $_) {
  355.         &escapes;
  356.         s/"/""/g;
  357.     }
  358.  
  359.     clear_noremap(1);
  360.  
  361.     if ($Cmd eq 'cut') {
  362.         $cutting = 1;
  363.     }
  364.     elsif ($Cmd eq 'head1') {
  365.         print qq{.SH "$_"\n}
  366.     }
  367.     elsif ($Cmd eq 'head2') {
  368.         print qq{.Sh "$_"\n}
  369.     }
  370.     elsif ($Cmd eq 'over') {
  371.         push(@indent,$indent);
  372.         $indent = $_ + 0;
  373.     }
  374.     elsif ($Cmd eq 'back') {
  375.         $indent = pop(@indent);
  376.         warn "Unmatched =back\n" unless defined $indent;
  377.         $needspace = 1;
  378.     }
  379.     elsif ($Cmd eq 'item') {
  380.         s/^\*( |$)/\\(bu$1/g;
  381.         print STDOUT qq{.Ip "$_" $indent\n};
  382.     }
  383.     else {
  384.         warn "Unrecognized directive: $Cmd\n";
  385.     }
  386.     }
  387.     else {
  388.     if ($needspace) {
  389.         &makespace;
  390.     }
  391.     &escapes;
  392.     clear_noremap(1);
  393.     print $_, "\n";
  394.     $needspace = 1;
  395.     }
  396. }
  397.  
  398. print <<"END";
  399.  
  400. .rn }` ''
  401. END
  402.  
  403. #########################################################################
  404.  
  405. sub nobreak {
  406.     my $string = shift;
  407.     $string =~ s/ /\\ /g;
  408.     $string;
  409. }
  410.  
  411. sub escapes {
  412.  
  413.     # translate the minus in foo-bar into foo\-bar for roff
  414.     s/([^0-9a-z-])-([^-])/$1\\-$2/g;
  415.  
  416.     # make -- into the string version \*(-- (defined above)
  417.     s/\b--\b/\\*(--/g;
  418.     s/"--([^"])/"\\*(--$1/g;  # should be a better way
  419.     s/([^"])--"/$1\\*(--"/g;
  420.  
  421.     # fix up quotes; this is somewhat tricky
  422.     if (!/""/) {
  423.     s/(^|\s)(['"])/noremap("$1\\*(L$2")/ge;
  424.     s/(['"])($|[\-\s,;\\!?.])/noremap("\\*(R$1$2")/ge;
  425.     }
  426.  
  427.     #s/(?!")(?:.)--(?!")(?:.)/\\*(--/g;
  428.     #s/(?:(?!")(?:.)--(?:"))|(?:(?:")--(?!")(?:.))/\\*(--/g;
  429.     
  430.  
  431.     # make sure that func() keeps a bit a space tween the parens
  432.     ### s/\b\(\)/\\|()/g;
  433.     ### s/\b\(\)/(\\|)/g;
  434.  
  435.     # make C++ into \*C+, which is a squinched version (defined above)
  436.     s/\bC\+\+/\\*(C+/g;
  437.  
  438.     # make double underbars have a little tiny space between them
  439.     s/__/_\\|_/g;
  440.  
  441.     # PI goes to \*(-- (defined above)
  442.     s/\bPI\b/noremap('\\*(PI')/ge;
  443.  
  444.     # make all caps a teeny bit smaller, but don't muck with embedded code literals
  445.     my $hidCFont = font('C');
  446.     if ($Cmd !~ /^head1/) { # SH already makes smaller
  447.     # /g isn't enough; 1 while or we'll be off
  448.  
  449. #    1 while s{
  450. #        (?!$hidCFont)(..|^.|^)
  451. #        \b
  452. #        (
  453. #        [A-Z][\/A-Z+:\-\d_$.]+
  454. #        )
  455. #        (s?)         
  456. #        \b
  457. #    } {$1\\s-1$2\\s0}gmox;
  458.  
  459.     1 while s{
  460.         (?!$hidCFont)(..|^.|^)
  461.         (
  462.         \b[A-Z]{2,}[\/A-Z+:\-\d_\$]*\b
  463.         )
  464.     } { 
  465.         $1 . noremap( '\\s-1' .  $2 . '\\s0' )
  466.     }egmox;
  467.  
  468.     }
  469. }
  470.  
  471. # make troff just be normal, but make small nroff get quoted
  472. # decided to just put the quotes in the text; sigh;
  473. sub ccvt {
  474.      local($_,$prev) = @_;
  475.      if ( /^\W+$/ && !/^\$./ ) {
  476.      ($prev && "\n") . noremap(qq{.CQ $_ \n\\&});
  477.      # what about $" ?
  478.      } else {
  479.      noremap(qq{${CFont_embed}$_\\fR});
  480.      } 
  481.     noremap(qq{.CQ "$_" \n\\&});
  482. } 
  483.  
  484. sub makespace {
  485.     if ($indent) {
  486.     print ".Sp\n";
  487.     }
  488.     else {
  489.     print ".PP\n";
  490.     }
  491. }
  492.  
  493. sub font {
  494.     local($font) = shift;
  495.     return '\\f' . noremap($font);
  496. } 
  497.  
  498. sub noremap {
  499.     local($thing_to_hide) = shift;
  500.     $thing_to_hide =~ tr/\000-\177/\200-\377/;
  501.     return $thing_to_hide;
  502. } 
  503.  
  504. sub init_noremap {
  505.     if ( /[\200-\377]/ ) {
  506.     warn "hit bit char in input stream";
  507.     } 
  508. } 
  509.  
  510. sub clear_noremap {
  511.     my $ready_to_print = $_[0];
  512.  
  513.     tr/\200-\377/\000-\177/;
  514.  
  515.     # trofficate backslashes
  516.     # s/(?!\\e)(?:..|^.|^)\\/\\e/g;
  517.  
  518.     # now for the E<>s, which have been hidden until now
  519.     # otherwise the interative \w<> processing would have
  520.     # been hosed by the E<gt>
  521.     s {
  522.         E<    
  523.         ( [A-Za-z]+ )    
  524.         >    
  525.     } { 
  526.      do {    
  527.          exists $HTML_Escapes{$1}
  528.         ? do { $HTML_Escapes{$1} }
  529.         : do {
  530.             warn "Unknown escape: $& in $_";
  531.             "E<$1>";
  532.         } 
  533.      } 
  534.     }egx if $ready_to_print;
  535. } 
  536.  
  537. sub internal_lrefs {
  538.     local($_) = shift;
  539.  
  540.     s{L</([^>]+)>}{$1}g;
  541.     my(@items) = split( /(?:,?\s+(?:and\s+)?)/ );
  542.     my $retstr = "the ";
  543.     my $i;
  544.     for ($i = 0; $i <= $#items; $i++) {
  545.     $retstr .= "C<$items[$i]>";
  546.     $retstr .= ", " if @items > 2 && $i != $#items;
  547.     $retstr .= " and " if $i+2 == @items;
  548.     } 
  549.  
  550.     $retstr .= " entr" . ( @items > 1  ? "ies" : "y" )
  551.         .  " elsewhere in this document";
  552.  
  553.     return $retstr;
  554.  
  555. } 
  556.  
  557. BEGIN {
  558. %HTML_Escapes = (
  559.     'amp'    =>    '&',    #   ampersand
  560.     'lt'    =>    '<',    #   left chevron, less-than
  561.     'gt'    =>    '>',    #   right chevron, greater-than
  562.     'quot'    =>    '"',    #   double quote
  563.  
  564.     "Aacute"    =>    "A\\*'",    #   capital A, acute accent
  565.     "aacute"    =>    "a\\*'",    #   small a, acute accent
  566.     "Acirc"    =>    "A\\*^",    #   capital A, circumflex accent
  567.     "acirc"    =>    "a\\*^",    #   small a, circumflex accent
  568.     "AElig"    =>    '\*(AE',    #   capital AE diphthong (ligature)
  569.     "aelig"    =>    '\*(ae',    #   small ae diphthong (ligature)
  570.     "Agrave"    =>    "A\\*`",    #   capital A, grave accent
  571.     "agrave"    =>    "A\\*`",    #   small a, grave accent
  572.     "Aring"    =>    'A\\*o',    #   capital A, ring
  573.     "aring"    =>    'a\\*o',    #   small a, ring
  574.     "Atilde"    =>    'A\\*~',    #   capital A, tilde
  575.     "atilde"    =>    'a\\*~',    #   small a, tilde
  576.     "Auml"    =>    'A\\*:',    #   capital A, dieresis or umlaut mark
  577.     "auml"    =>    'a\\*:',    #   small a, dieresis or umlaut mark
  578.     "Ccedil"    =>    'C\\*,',    #   capital C, cedilla
  579.     "ccedil"    =>    'c\\*,',    #   small c, cedilla
  580.     "Eacute"    =>    "E\\*'",    #   capital E, acute accent
  581.     "eacute"    =>    "e\\*'",    #   small e, acute accent
  582.     "Ecirc"    =>    "E\\*^",    #   capital E, circumflex accent
  583.     "ecirc"    =>    "e\\*^",    #   small e, circumflex accent
  584.     "Egrave"    =>    "E\\*`",    #   capital E, grave accent
  585.     "egrave"    =>    "e\\*`",    #   small e, grave accent
  586.     "ETH"    =>    '\\*(D-',    #   capital Eth, Icelandic
  587.     "eth"    =>    '\\*(d-',    #   small eth, Icelandic
  588.     "Euml"    =>    "E\\*:",    #   capital E, dieresis or umlaut mark
  589.     "euml"    =>    "e\\*:",    #   small e, dieresis or umlaut mark
  590.     "Iacute"    =>    "I\\*'",    #   capital I, acute accent
  591.     "iacute"    =>    "i\\*'",    #   small i, acute accent
  592.     "Icirc"    =>    "I\\*^",    #   capital I, circumflex accent
  593.     "icirc"    =>    "i\\*^",    #   small i, circumflex accent
  594.     "Igrave"    =>    "I\\*`",    #   capital I, grave accent
  595.     "igrave"    =>    "i\\*`",    #   small i, grave accent
  596.     "Iuml"    =>    "I\\*:",    #   capital I, dieresis or umlaut mark
  597.     "iuml"    =>    "i\\*:",    #   small i, dieresis or umlaut mark
  598.     "Ntilde"    =>    'N\*~',        #   capital N, tilde
  599.     "ntilde"    =>    'n\*~',        #   small n, tilde
  600.     "Oacute"    =>    "O\\*'",    #   capital O, acute accent
  601.     "oacute"    =>    "o\\*'",    #   small o, acute accent
  602.     "Ocirc"    =>    "O\\*^",    #   capital O, circumflex accent
  603.     "ocirc"    =>    "o\\*^",    #   small o, circumflex accent
  604.     "Ograve"    =>    "O\\*`",    #   capital O, grave accent
  605.     "ograve"    =>    "o\\*`",    #   small o, grave accent
  606.     "Oslash"    =>    "O\\*/",    #   capital O, slash
  607.     "oslash"    =>    "o\\*/",    #   small o, slash
  608.     "Otilde"    =>    "O\\*~",    #   capital O, tilde
  609.     "otilde"    =>    "o\\*~",    #   small o, tilde
  610.     "Ouml"    =>    "O\\*:",    #   capital O, dieresis or umlaut mark
  611.     "ouml"    =>    "o\\*:",    #   small o, dieresis or umlaut mark
  612.     "szlig"    =>    '\*8',        #   small sharp s, German (sz ligature)
  613.     "THORN"    =>    '\\*(Th',    #   capital THORN, Icelandic
  614.     "thorn"    =>    '\\*(th',,    #   small thorn, Icelandic
  615.     "Uacute"    =>    "U\\*'",    #   capital U, acute accent
  616.     "uacute"    =>    "u\\*'",    #   small u, acute accent
  617.     "Ucirc"    =>    "U\\*^",    #   capital U, circumflex accent
  618.     "ucirc"    =>    "u\\*^",    #   small u, circumflex accent
  619.     "Ugrave"    =>    "U\\*`",    #   capital U, grave accent
  620.     "ugrave"    =>    "u\\*`",    #   small u, grave accent
  621.     "Uuml"    =>    "U\\*:",    #   capital U, dieresis or umlaut mark
  622.     "uuml"    =>    "u\\*:",    #   small u, dieresis or umlaut mark
  623.     "Yacute"    =>    "Y\\*'",    #   capital Y, acute accent
  624.     "yacute"    =>    "y\\*'",    #   small y, acute accent
  625.     "yuml"    =>    "y\\*:",    #   small y, dieresis or umlaut mark
  626. );
  627. }
  628.